home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / GRAPHICS.EXE / COORDIN.BAS < prev    next >
BASIC Source File  |  1991-03-18  |  256b  |  10 lines
  1. 'Demonstrates redefining screen coordinates (in this case magnifying the image)
  2. CLS : MODE 5 : COLOR 1,2,11 : X = 2000 : Y = 1600
  3. WHILE X > 100
  4. COORDINATE X,Y
  5. CIRCLE 100,100,50
  6. X = X * .9 : Y = Y * .9
  7. "Delay"
  8. IF INKEY$ = "" GOTO "Delay"
  9. WEND
  10.